home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / swood / fw_font.lha / FW_Font / FontLook.fwrexx.long < prev    next >
Text File  |  1997-04-27  |  5KB  |  231 lines
  1. /* Hiermit erhält man eine Übersicht über seine gesamten Zeichensätze*/
  2. /* © Heiko Schröder / 27.04.97 / Mail: age@thepentagon.com */
  3. R='0A'X
  4.  
  5. Address='FinalW'
  6. Options results
  7.  
  8. STATUS PORTNAME
  9. FW = result
  10. address = FW
  11.  
  12. SIGNAL ON BREAK_C
  13.  
  14. 'ShowMessage 2 0 "FontLook V2.72 - 27.04.97" "    Neu: Das Shareware-Paket" "Info im FontLook-Guide" ":-)" "Ok" "(-:"'
  15. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  16. if result=2 then call BREAK_C
  17. Cleardoc Force
  18.  
  19. 'ShowMessage 2 0 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  20. cl=result
  21.  
  22. 'ShowMessage 2 0 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  23. ba=result
  24.  
  25. 'ShowMessage 1 0 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  26. lm=result
  27.  
  28. /*FensterMinimierung*/
  29. IF ba=2 THEN DO
  30.    status WINDOW
  31.    parse VAR result links oben width height minwidth minheight maxwidth maxheight
  32.    sizewindow minwidth minheight
  33. End
  34.  
  35. GetDocItemPrefs Decimal
  36. Punkt=Result
  37. If Punkt="Comma" then DocItemPrefs Decimal Period
  38.  
  39. Font
  40. a=RC
  41.  
  42. If a=0 then do
  43.    Type d2c(32)
  44.    BackSpace
  45.    status FontPath
  46.    FullFontName=result
  47.    pos = max(index(FullFontName,':'),lastpos('/',FullFontName))
  48.    IF (pos~=0) THEN
  49.        FontName=RIGHT(FullFontName, LENGTH(FullFontName)-pos)
  50.    END
  51.  
  52.    IF ba=2 THEN View 20
  53.  
  54.    Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  55.    SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  56.  
  57.    GraphicTool
  58.    LinePrefs LineWt .5
  59.    DrawLine 1 2 3.5 20 3.5
  60.    DrawLine 1 2 26 20 26
  61.  
  62.    If lm=1 then DrawLine 1 .5 14.85 1 14.85
  63.  
  64.    TextTool
  65.    If cl=1 then do
  66.  
  67.       Do i=0 to 13
  68.          SetTab i*1.3+0.8 Right
  69.       End
  70.  
  71.       Justify Center
  72.       Font Softsans
  73.       FontSize 18
  74.       Type FontName||R||R
  75.  
  76.       a=0
  77.  
  78.       DO w=1 to 15
  79.  
  80.          Font Softsans
  81.          FontSize 8
  82.          DO x=a+33 to a+46
  83.              Type d2c(9) || x || d2c(32) || d2c(x)
  84.          END
  85.  
  86.          Type R
  87.  
  88.          Font FontName
  89.          FontSize 24
  90.          DO x=a+33 to a+46
  91.              Type d2c(9)
  92.             Type d2c(x)
  93.          END
  94.  
  95.          Type R
  96.  
  97.          a=a+14
  98.  
  99.       END
  100.  
  101.       Font Softsans
  102.       FontSize 8
  103.       DO x=a+33 to a+45
  104.           Type d2c(9) || x || d2c(32) || d2c(x)
  105.       END
  106.  
  107.       Type d2c(9)||R
  108.  
  109.       Font FontName
  110.       FontSize 24
  111.       DO x=a+33 to a+45
  112.           Type d2c(9)
  113.          Type d2c(x)
  114.       END
  115.  
  116.       Type d2c(9)||R
  117.       FontSize 12
  118.       Type d2c(9)||R
  119.       Font Softsans
  120.  
  121.       FontSize 8
  122.       Justify Right
  123.       Type Date(E)" - "FullFontName
  124.  
  125.    END
  126.  
  127. /* ------- */
  128.  
  129.    If cl=2 then do
  130.  
  131.       Justify Center
  132.       Font Softsans
  133.       FontSize 18
  134.       Type FontName||R
  135.  
  136.       Justify Left
  137.       Font FontName
  138.       FontSize 8
  139.       Type R||"This is 8-point type - not easy to read!"||R
  140.  
  141.       FontSize 9
  142.       Type "9-Point type is about the smallest readable size."||R
  143.  
  144.       FontSize 10
  145.       Type "With 10-point type, we have a normal text size."||R
  146.  
  147.       FontSize 12
  148.       Type "With some Fonts, 12-point type is easier to read."||R
  149.  
  150.       FontSize 14
  151.       Type "14-point type is good for subheadings."||R
  152.  
  153.       FontSize 16
  154.       Type "For larger subheadings, try 16-point type."||R
  155.  
  156.       FontSize 18
  157.       Type "18-point type makes nice small headlines."||R
  158.  
  159.       FontSize 24
  160.       Type "24-point type is for medium headlines."||R
  161.  
  162.       FontSize 36
  163.       Type "36-point is for larger ones."||R
  164.  
  165.       FontSize 48
  166.       Type "48-point almost shouts!"||R||R
  167.  
  168.       FontSize 12
  169.       Font SoftSans
  170.       Type "NORMAL"||R
  171.  
  172.       FontSize 10
  173.       Font FontName
  174.       Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  175.       Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  176.       Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R||R
  177.  
  178.       FontSize 12
  179.       Font SoftSans
  180.       Type "ERWEITERTER SCHRIFTCODE"||R
  181.  
  182.       FontSize 10
  183.       Font FontName
  184.       j=0
  185.       Do i=1 to 4
  186.          Do k=128+j to 159+j
  187.             Type d2c(k)
  188.          End
  189.          Type R
  190.          j=j+32
  191.       End
  192.       Status BodyTextHeight
  193.       th=result
  194.       FG=26.24-2.113-th
  195.       FG=Trunc(FG*8/0.34)
  196.       FontSize FG
  197.       Type d2c(9)
  198.       Font SoftSans
  199.       FontSize 8
  200.       Type R
  201.       Justify Right
  202.       Type Date(E)" - "FullFontName
  203.    END
  204.  
  205.    call WH
  206.  
  207.    'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"'
  208.    If result=1 then Save
  209.    If result=2 then Print
  210. END
  211.  
  212. 'ShowMessage 2 0 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"'
  213. 'ShowMessage 2 1 "© Heiko Schröder" "email: age@thepentagon.com" "http://yi.com/home/SchroederHeiko" "Oki" "Doki" ":-))"'
  214.  
  215. EXIT
  216.  
  217. BREAK_C:
  218.    'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  219.    call WH
  220.    address "REXX"
  221.    Address command "delete ram:fonts QUIET"
  222.    EXIT
  223.  
  224. WH:
  225.    If ba=2 then do
  226.       View
  227.       sizewindow width height
  228.    End
  229.    If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  230. Return
  231.